home *** CD-ROM | disk | FTP | other *** search
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
- <background>
- <id>3785</id>
- <filler1>0</filler1>
- <bitmap>BMAP_4842.pbm</bitmap>
- <cantDelete> <false /> </cantDelete>
- <showPict> <true /> </showPict>
- <dontSearch> <false /> </dontSearch>
- <link rel="stylesheet" type="text/css" href="stylesheet_6050.css" />
- <part>
- <id>74</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>114</left>
- <top>67</top>
- <right>491</right>
- <bottom>311</bottom>
- </rect>
- <style>opaque</style>
- <showName> <false /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Grid Cover</name>
- <script></script>
- </part>
- <part>
- <id>17</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>26</left>
- <top>121</top>
- <right>65</right>
- <bottom>171</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>4315</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Effects</name>
- <script>on mouseUp
- global Speed, Color
- repeat with i = 4312 to 4315
- set icon of me to i
- end repeat
- repeat with i = 24 to 25
- set the visible of card field id i¬
- to not the visible of card field id i
- end repeat
- set scroll of card field "Visual Effects" to 0
- repeat with i = 42 to 45
- set the visible of card btn id i¬
- to not the visible of card btn id i
- end repeat
- if the visible of card field "Visual Effects" is true then
- set hilite of me to true
- repeat with i = 22 to 25
- set style of bkgnd btn id i to rectangle
- end repeat
- else
- set hilite of me to false
- repeat with i = 22 to 25
- set style of bkgnd btn id i to transparent
- end repeat
- repeat with i = 18 to 19
- if hilite of bkgnd btn id i is true then
- send mouseUp to bkgnd btn id i
- end if
- end repeat
- put empty into card field "Test"
- end if
- put empty into Color
- put empty into Speed
- pass mouseUp
- end mouseUp
-
-
-
- </script>
- </part>
- <part>
- <id>18</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>68</left>
- <top>121</top>
- <right>107</right>
- <bottom>171</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>14283</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Speed</name>
- <script>on mouseUp
- set hilite of me to not hilite of me
- if hilite of me is true then effects
- repeat with i = 26 to 29
- set the visible of card btn id i¬
- to not the visible of card btn id i
- end repeat
- pass mouseUp
- end mouseUp
- </script>
- </part>
- <part>
- <id>19</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>68</left>
- <top>174</top>
- <right>107</right>
- <bottom>224</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>23177</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Color</name>
- <script>on mouseUp
- set hilite of me to not hilite of me
- if hilite of me is true then effects
- repeat with i = 30 to 33
- set the visible of card btn id i¬
- to not the visible of card btn id i
- end repeat
- pass mouseUp
- end mouseUp
-
-
-
- </script>
- </part>
- <part>
- <id>20</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>26</left>
- <top>235</top>
- <right>65</right>
- <bottom>285</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>4188</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Info</name>
- <script>on mouseUp
- do short name of me
- end mouseUp
- </script>
- </part>
- <part>
- <id>21</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>68</left>
- <top>235</top>
- <right>107</right>
- <bottom>285</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>4179</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Map</name>
- <script>on mouseUp
- doMenu short name of me
- end mouseUp</script>
- </part>
- <part>
- <id>22</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>200</left>
- <top>268</top>
- <right>225</right>
- <bottom>291</bottom>
- </rect>
- <style>transparent</style>
- <showName> <false /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>1014</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Go To Previous Card</name>
- <script>on mouseUp
- scroll L
- go to prev card
- end mouseUp
- </script>
- </part>
- <part>
- <id>23</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>225</left>
- <top>268</top>
- <right>252</right>
- <bottom>291</bottom>
- </rect>
- <style>transparent</style>
- <showName> <false /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>21700</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Go To Home Card</name>
- <script>on mouseUp
- scroll D
- go home
- end mouseUp
- </script>
- </part>
- <part>
- <id>24</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>252</left>
- <top>268</top>
- <right>276</right>
- <bottom>291</bottom>
- </rect>
- <style>transparent</style>
- <showName> <false /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>1013</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Go To Next Card</name>
- <script>on mouseUp
- scroll R
- go to next card
- end mouseUp
- </script>
- </part>
- <part>
- <id>25</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>462</left>
- <top>268</top>
- <right>485</right>
- <bottom>291</bottom>
- </rect>
- <style>transparent</style>
- <showName> <false /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>1012</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Go Back </name>
- <script>on mouseUp
- scroll U
- pop card
- end mouseUp
- </script>
- </part>
- <part>
- <id>36</id>
- <type>button</type>
- <visible> <false /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>83</left>
- <top>161</top>
- <right>98</right>
- <bottom>174</bottom>
- </rect>
- <style>transparent</style>
- <showName> <false /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Date</name>
- <script></script>
- </part>
- <part>
- <id>38</id>
- <type>field</type>
- <visible> <true /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>13</left>
- <top>32</top>
- <right>495</right>
- <bottom>66</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>26</textSize>
- <textStyle>condense</textStyle>
- <textStyle>outline</textStyle>
- <textStyle>bold</textStyle>
- <textHeight>34</textHeight>
- <name>Title</name>
- <script></script>
- </part>
- <part>
- <id>43</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>210</left>
- <top>311</top>
- <right>264</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <true /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Effects</name>
- <script>on mouseUp
- set hilite of me to true
- beep
- answer "You're already in" && quote & short name of me & quote & "."
- end mouseUp
- </script>
- </part>
- <part>
- <id>51</id>
- <type>button</type>
- <visible> <false /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>224</left>
- <top>63</top>
- <right>370</right>
- <bottom>75</bottom>
- </rect>
- <style>rectangle</style>
- <showName> <false /> </showName>
- <highlight> <true /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Mouse Loc</name>
- <script></script>
- </part>
- <part>
- <id>52</id>
- <type>field</type>
- <visible> <false /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <false /> </lockText>
- <rect>
- <left>223</left>
- <top>62</top>
- <right>315</right>
- <bottom>74</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>condense</textStyle>
- <textStyle>outline</textStyle>
- <textStyle>bold</textStyle>
- <textHeight>12</textHeight>
- <name>Mouse Loc1</name>
- <script></script>
- </part>
- <part>
- <id>53</id>
- <type>field</type>
- <visible> <false /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>312</left>
- <top>62</top>
- <right>369</right>
- <bottom>76</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>condense</textStyle>
- <textStyle>outline</textStyle>
- <textStyle>bold</textStyle>
- <textHeight>12</textHeight>
- <name>Mouse Loc2</name>
- <script>on idle
- if the visible of field "Mouse Loc2" is true then
- put the mouseLoc into field "Mouse Loc2"
- end if
- send idle to stack
- exit idle
- pass idle
- end idle</script>
- </part>
- <part>
- <id>72</id>
- <type>button</type>
- <visible> <false /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>15</left>
- <top>300</top>
- <right>251</right>
- <bottom>312</bottom>
- </rect>
- <style>rectangle</style>
- <showName> <false /> </showName>
- <highlight> <true /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>bold</textStyle>
- <name>Prev Card: card id 5476</name>
- <script>on mouseUp
- scrollL
- go to card char 12 to 99 of short name of me
- end mouseUp
- </script>
- </part>
- <part>
- <id>73</id>
- <type>button</type>
- <visible> <false /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>253</left>
- <top>300</top>
- <right>492</right>
- <bottom>312</bottom>
- </rect>
- <style>rectangle</style>
- <showName> <false /> </showName>
- <highlight> <true /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>bold</textStyle>
- <name>Next Card: Copy of Home</name>
- <script>on mouseUp
- scrollR
- go to card char 12 to 99 of short name of me
- end mouseUp
- </script>
- </part>
- <part>
- <id>78</id>
- <type>field</type>
- <visible> <false /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>16</left>
- <top>300</top>
- <right>252</right>
- <bottom>312</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>condense</textStyle>
- <textStyle>outline</textStyle>
- <textStyle>bold</textStyle>
- <textHeight>12</textHeight>
- <name></name>
- <script>on mouseUp
- scrollL
- go to card char 12 to 99 of short name of me
- end mouseUp
- </script>
- </part>
- <part>
- <id>79</id>
- <type>field</type>
- <visible> <false /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>253</left>
- <top>300</top>
- <right>492</right>
- <bottom>313</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>condense</textStyle>
- <textStyle>outline</textStyle>
- <textStyle>bold</textStyle>
- <textHeight>12</textHeight>
- <name></name>
- <script>on mouseUp
- scrollR
- go to card char 12 to 99 of short name of me
- end mouseUp
- </script>
- </part>
- <part>
- <id>80</id>
- <type>button</type>
- <visible> <false /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>374</left>
- <top>63</top>
- <right>493</right>
- <bottom>75</bottom>
- </rect>
- <style>rectangle</style>
- <showName> <false /> </showName>
- <highlight> <true /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>FreeSpaceMon</name>
- <script></script>
- </part>
- <part>
- <id>81</id>
- <type>field</type>
- <visible> <false /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>374</left>
- <top>62</top>
- <right>466</right>
- <bottom>74</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>condense</textStyle>
- <textStyle>outline</textStyle>
- <textStyle>bold</textStyle>
- <textHeight>12</textHeight>
- <name>FreeSpaceMon1</name>
- <script>on mouseDown
- set the numberFormat to "0.00"
- get the freeSize of this stack
- put it / 1024 && "K" into FS
- put FS into field "FreeSpaceMon2"
- end mouseDown</script>
- </part>
- <part>
- <id>82</id>
- <type>field</type>
- <visible> <false /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>436</left>
- <top>62</top>
- <right>493</right>
- <bottom>76</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>condense</textStyle>
- <textStyle>outline</textStyle>
- <textStyle>bold</textStyle>
- <textHeight>12</textHeight>
- <name>FreeSpaceMon2</name>
- <script>on mouseDown
- set the numberFormat to "0.00"
- get the freeSize of this stack
- put it / 1024 && "K" into FS
- put FS into field "FreeSpaceMon2"
- end mouseDown</script>
- </part>
- <part>
- <id>83</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>12</left>
- <top>26</top>
- <right>494</right>
- <bottom>38</bottom>
- </rect>
- <style>rectangle</style>
- <showName> <true /> </showName>
- <highlight> <true /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>condense</textStyle>
- <name>A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z | + | -</name>
- <script>on mouseDown
- global Fred, Nick
- set hilite of me to true
- lockcard
- push card
- go to bkgnd id 2295
- if Fred <> empty then
- if visible of field Fred is true then hide field Fred
- end if
- put the rect of the target into holder
- put (item 1 of the clickloc) - (item 1 of the rect of me) into A
- put (item 3 of the rect of me) - (item 1 of the rect of me) into B
- put the numToChar of (trunc(A/(B/28))+65) into Fred
- if Fred is empty then
- pop card
- exit mouseDown
- else if Fred is "[" then indexAddName
- else if Fred is "\" then indexDeleteName
- else
- play Fred
- if the commandKey is down then indexEditMode
- else
- put (item 1 of the clickloc-6) into horiz
- put (item 2 of holder)+12 into vert
- if script of field Fred is empty then
- answer "Oops, nothing to display." with "Sorry"
- pop card
- exit mouseDown
- else
- get PopUpMenu(script of field Fred,0, vert, horiz)
- if it is "0" then
- pop card
- exit mouseDown
- else
- put (line it of script of field Fred) into Sam
- pop card
- unlockcard
- if Sam is "Menu Maker" then
- answer "Sorry, This feature not yet supported"
- exit mouseDown
- else if Sam is "Menus" then
- answer "Sorry, This feature not yet supported"
- exit mouseDown
- else if Sam is "Scripts" then
- answer "Sorry, This feature not yet supported"
- exit mouseDown
- else if Sam is "Button Font Changer" then
- changeFont
- exit mouseDown
- else if Sam is "Change Button Font" then
- changeFont
- exit mouseDown
- else if Sam is "Crash" then
- crash
- exit mouseDown
- else if Sam is "Create An Icon" then
- MakeIcon
- exit mousedown
- else if Sam is "Credits" then
- credits
- exit mouseDown
- else if Sam is "Cursors" then
- cursors
- exit mouseDown
- else if Sam is "Date & Time" then
- timeDate
- exit mouseDown
- else if Sam is "Dedications" then
- dedications
- exit mouseDown
- else if Sam is "DeProtect Stack" then
- deprotect1
- exit mouseDown
- else if Sam is "Disk Space Available" then
- diskSpaceAvail
- exit mouseDown
- else if Sam is "Don't Click Here" then
- overLoad
- exit mouseDown
- else if Sam is "Don't Panic" then
- panic
- exit mouseDown
- else if Sam is "Edit This Bkgnd Script" then
- edit script of this bkgnd
- exit mouseDown
- else if Sam is "Edit This Card Script" then
- edit script of this card
- exit mouseDown
- else if Sam is "Edit This Stack Script" then
- edit script of this stack
- exit mouseDown
- else if Sam is "Free Space in this stack" then
- freeSpace
- exit mouseDown
- else if Sam is "Free Space Monitor" then
- freeSpaceMon
- exit mouseDown
- else if Sam is "Get Specs" then
- getSpecs
- exit mouseDown
- else if Sam is "Heap Space" then
- heapSpaceAvail
- exit mouseDown
- else if Sam is "Hidden Buttons" then
- ShowHiddenBtns
- exit mouseDown
- else if Sam is "Hidden Fields" then
- ShowHiddenFields
- exit mouseDown
- else if Sam is "HyperCard Version?" then
- HyperCardVersion
- exit mouseDown
- else if Sam is "HyperEdit" then
- answer "Hold down the return Key and the shift Key"
- exit mouseDown
- else if Sam is "HyperSoundΓäó" then
- go to stack "HyperSound"
- exit mouseDown
- else if Sam is "Last Updated" then
- updated
- exit mouseDown
- else if Sam is "List Next & Prev Cards" then
- LNPC
- exit mouseDown
- else if Sam is "Make Icons" then
- MakeIcon
- exit mousedown
- else if Sam is "Mouse Location" then
- mouseLocation
- exit mousedown
- else if Sam is "Open Aplication" then
- openApl
- exit mouseDown
- else if Sam is "Pixel Grid" then
- piGrid
- exit mouseDown
- else if Sam is "ResCopy" then
- ResCopy
- exit mouseDown
- else if Sam is "ResEdit" then
- open "ResEdit 1.1B3"
- exit mouseDown
- else if Sam is "Script of Bkgnd..." then
- bkgndScript
- exit mouseDown
- else if Sam is "Script of Button..." then
- btnScript
- exit mouseDown
- else if Sam is "Script of Card..." then
- cardScript
- exit mouseDown
- else if Sam is "Script of Field..." then
- fieldScript
- exit mouseDown
- else if Sam is "Script of Stack..." then
- stackScript
- exit mouseDown
- else if Sam is "Script of Home" then
- HomeScript
- exit mouseDown
- else if Sam is "Scripts" then
- answer "Sorry, This feature not yet supported"
- exit mouseDown
- else if Sam is "Show Heap Space" then
- heapSpaceAvail
- exit mouseDown
- else if Sam is "Show Size of This Stack" then
- SizeofStack
- exit mouseDown
- else if Sam is "SoundEditΓäó" then
- open SoundEdit
- exit mouseDown
- else if Sam is "Stack Space Available" then
- stackSpaceAvail
- exit mouseDown
- else if Sam is "Updated Last" then
- updated
- exit mouseDown
- else if Sam is "Time & Date" then
- timeDate
- exit mouseDown
- else unlock
- if Sam is "About Stack Starter" then go to card "the stack starter"
- else if Sam is "Allover Analyzer" then go to card "the allover analyzer"
- else if Sam is "Animated Icons 1" then go to card "animated icons 1"
- else if Sam is "Animated Icons 2" then go to card "animated icons 2"
- else if Sam is "Animated Icons 3" then go to card "animated icons 3"
- else if Sam is "Animated Icons 4" then go to card "animated icons 4"
- else if Sam is "Animated Icons 5" then go to card "animated icons 5"
- else if Sam is "Animated Icons 6" then go to card "animated icons 6"
- else if Sam is "Author" then author
- else if Sam is "Button Breeder" then go to card "the button breeder"
- else if Sam is "Buttons" then go to card "the button breeder"
- else if Sam is "Cover" then go to card "the stack starter"
- else if Sam is "Controls" then go to card "the controls cultivator"
- else if Sam is "Crash" then crash
- else if Sam is "Credits" then credits
- else if Sam is "Dedications" then dedications
- else if Sam is "Don't Panic" then panic
- else if Sam is "Effects" then go to card "the effects editor"
- else if Sam is "Effects Editor" then go to card "the effects editor"
- else if Sam is "Explanations" then go to card "the stack starter"
- else if Sam is "Fields" then go to card "the field fabricator"
- else if Sam is "Field Fabricator" then go to card "the field fabricator"
- else if Sam is "Free-Roaming Icons" then go to card "Animated Icons 1"
- else if Sam is "Gauges" then go to card "meters and gauges"
- else if Sam is "Graphic Examples" then pause
- else if Sam is "Graphic Techniques" then pause
- else if Sam is "Helpful Hierarchy" then go to card "the helpful hierarchy"
- else if Sam is "Hierarchy" then go to card "the helpful hierarchy"
- else if Sam is "HyperSoundΓäó" then go to stack "HyperSound"
- else if Sam is "Icon Iniatiator" then go to card "the icon iniatiator"
- else if Sam is "Icons" then go to card "the icon iniatiator"
- else if Sam is "Interactive Icons" then go to card "Animated Icons 1"
- else if Sam is "Intro" then pause
- else if Sam is "Keyboard Simulator" then go to card "Keyboard"
- else if Sam is "Knobs" then go to card "knobs"
- else if Sam is "Map" then go to card "the master map"
- else if Sam is "Master Map" then go to card "the master map"
- else if Sam is "Meters" then go to card "meters"
- else if Sam is "Multi-Icon Buttons" then go to card "Multi-Icon Buttons"
- else if Sam is "Open Aplication" then openApl
- else if Sam is "Panic" then panic
- else if Sam is "Pause" then pause
- else if Sam is "Pushbuttons" then go to card "Pushbuttons Switches"
- else if Sam is "Sliders" then go to card "sliders"
- else if Sam is "Sounds" then go to card "the sound sampler"
- else if Sam is "Speech" then go to card "the sound sampler"
- else if Sam is "Switches" then go to card "Pushbuttons Switches"
- else if Sam is "Tools" then go to card "the allover analyzer"
- else if Sam is "Visual Effects" then go to card "the effects editor"
- else if Sam is "XCMDs" then go to card "the master map"
- else if Sam is "XFCNs" then go to card "the master map"
- else
- put "the " before Sam
- go card Sam
- if the result <> empty then answer "Sorry, this feature not yet supported."
- end if
- end if
- end if
- end if
- end if
- hide msg
- end mouseDown
-
- on indexAddName
- global Fred
- ask "What menu ITEM would you like to add?"¬
- with "Please type ITEM NAME here."
- if it is "Please type ITEM NAME here." then
- else if it is empty then
- else
- set cursor to 4
- lockcard
- put it into addName
- put first char of addName into Fred
- if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
- else
- put LowerToUpper(char 1 of addName) into char 1 of addName
- put script of field Fred into field Fred
- put addName into line (number of lines in field Fred)¬
- + 1 of field Fred
- put SortLines(field Fred, "A" ) into field Fred
- put crunch(field Fred) into field Fred
- set script of field Fred to field Fred
- end if
- end if
- put empty into Fred
- end indexAddName
-
- on indexDeleteName
- global Fred
- ask "Please enter the EXACT ITEM NAME to delete."
- if it is empty then
- else
- put it into deName
- answer "Delete" && quote & deName & quote & "?"¬
- with "Cancel" or "Yes"
- if it is "Yes" then
- set cursor to 4
- lockcard
- put first char of deName into Fred
- if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
- else
- put script of field Fred into field Fred
- Repeat with i = 1 to (number of lines in field Fred + 1)
- if line i of field Fred = dename then
- delete line i of field Fred
- exit repeat
- end if
- end repeat
- --if i > (number of lines in field Fred) then
- --beep 2
- -- answer "You must type name exactly as it appears"
- --else
- put SortLines(field Fred, "A" ) into field Fred
- put crunch(field Fred) into field Fred
- set script of field Fred to field Fred
- -- end if
- end if
- end if
- end if
- put empty into Fred
- end indexDeleteName
-
- on indexEditMode
- global Fred
- edit script of field Fred
- set cursor to 4
- lockcard
- put script of field Fred into field Fred
- Repeat with i = 1 to number of lines in field Fred
- put LowerToUpper(char 1 of line i of field Fred)¬
- into char 1 of line i of field Fred
- end repeat
- put SortLines(field Fred, "A" ) into field Fred
- put crunch(field Fred) into field Fred
- set script of field Fred to field Fred
- end indexEditMode
-
- on mouseUp
- set lockMessages to true
- end mouseUp
- </script>
- </part>
- <part>
- <id>84</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>12</left>
- <top>311</top>
- <right>59</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Cover</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>85</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>58</left>
- <top>311</top>
- <right>93</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Map</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>86</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>92</left>
- <top>311</top>
- <right>151</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Buttons</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>87</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>150</left>
- <top>311</top>
- <right>211</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Controls</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>88</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>264</left>
- <top>311</top>
- <right>310</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Fields</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>89</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>309</left>
- <top>311</top>
- <right>352</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Icons</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>90</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>351</left>
- <top>311</top>
- <right>404</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Scripts</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>91</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>403</left>
- <top>311</top>
- <right>455</right>
- <bottom>327</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Sounds</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>92</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>454</left>
- <top>311</top>
- <right>494</right>
- <bottom>327</bottom>
- </rect>
- <style>transparent</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Tools</name>
- <script>on mouseUp
- set hilite of me to true
- doMenu short name of me
- set hilite of me to false
- end mouseUp
- </script>
- </part>
- <part>
- <id>93</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>26</left>
- <top>174</top>
- <right>65</right>
- <bottom>224</bottom>
- </rect>
- <style>shadow</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>29399</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>MorEFX</name>
- <script>on mouseDown
- put the rect of the target into holder
- put item 1 of holder into horiz
- put item 2 of holder into vert
- get PopUpMenu(" Moire ; Modrian ; Stripes ",3, vert, horiz)
- hideall
- if it is empty then
- else if it is 1 then
- answer "Sorry, That feature is not yet supported."
- else if it is 2 then
- reset paint
- choose bucket tool
- set pattern to 1
- click at 0,0
- choose select tool
- set dragSpeed to 1000
- repeat forever
- drag from random(256),random(171) to ¬
- (random(256) + 255),(random(171) + 170)
- if the mouse is down then
- cleanUp
- exit mouseDown
- end if
- doMenu "Invert"
- choose select tool
- end repeat
- else if it is 3 then
- choose brush tool
- set brush to 1
- repeat with i = 40 down to 1
- set pattern to i
- drag from 0,9 * (i-1) to 512 ,9 * (i-1)
- drag from 13 * (i-1), 10 to 13 * (i-1), 400
- if the mouse is down then
- cleanUp
- exit mouseDown
- end if
- end repeat
- choose browse tool
- else
- cleanUp
- end if
- wait until the mouseClick
- cleanUp
- end mouseDown
-
- on cleanUp
- choose select tool
- doMenu "Select All"
- doMenu "Clear Picture"
- choose browse tool
- show menubar
- end cleanUp
- </script>
- </part>
- <part>
- <id>94</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>15</left>
- <top>62</top>
- <right>221</right>
- <bottom>75</bottom>
- </rect>
- <style>rectangle</style>
- <showName> <true /> </showName>
- <highlight> <true /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>bold</textStyle>
- <name>Volume | Fonts | Style | Size | Height</name>
- <script>on mouseDown
- global ActiveField
- set hilite of me to true
- put "field id 13" into jim
- put the rect of the target into holder
- put (item 1 of the clickloc) - (item 1 of the rect of me) into A
- put (item 3 of the rect of me)-(item 1 of the rect of me) into B
- put trunc(A/(B/5))into joe
- if Joe is empty then
- else
- put (item 1 of the clickloc-6) into horiz
- put (item 2 of holder)+13 into vert
- if joe is "0" then
- get PopUpMenu(" 0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ", 0, vert, horiz)
- if it is "0" then
- else
- put word it of " 0 1 2 3 4 5 6 7" into sam
- SetVolume(sam)
- play harpsichord "c ew"
- end if
- else if Joe is "1" then
- if script of field "fontField" is empty then
- answer "Oops, no FONTS in this system." with "Sorry"
- exit mouseDown
- else
- get PopUpMenu(script of field "fontField",0, vert, horiz)
- if it is "0" then
- else
- put (line it of script of field "fontField") into Sam
- if ActiveField <> empty then
- set textFont of ActiveField to sam
- else set textFont to sam
- end if
- end if
- else if Joe is "2" then
- get PopUpMenu(" Plain ; Bold ; Italic ; Underline ; Outline ; Shadow ; Condense ; Extend ;(----------) ; Left ; Center ; Right ", 0, vert, horiz)
- if it is "0" then
- else
- put word it of " Plain Bold Italic Underline Outline Shadow Condense Extend -- Left Center Right" into sam
- if ActiveField <> empty then
- if sam is "Plain" then set textStyle of ActiveField to plain
- else if sam is "Left" then set textAlign of ActiveField to left
- else if sam is "Center" then set textAlign of ActiveField to center
- else if sam is "Right" then set textAlign of ActiveField to right
- else if textStyle of ActiveField is "Plain" then set textStyle of ActiveField to sam
- else
- put "set textStyle of" && ActiveField && "to" && ((textStyle of ActiveField) & "," && sam) into temp
- do (temp)
- end if
- else
- if sam is "Plain" then set textStyle to sam
- else if sam is "Left" then set textAlign to left
- else if sam is "Center" then set textAlign to center
- else if sam is "Right" then set textAlign to right
- else if the textStyle is "Plain" then set textStyle to sam
- else
- put "set textStyle" && "to" && ((the textStyle) & "," && sam) into temp
- do (temp)
- end if
- end if
- end if
- else if Joe is "3" then
- get PopUpMenu(" 6 ; 8 ; 9 ; 10 ; 12 ; 14 ; 18 ; 24 ; 36 ; 48 ; 52 ; 72 ", 0, vert, horiz)
- if it is "0" then
- else
- put word it of " 6 8 9 10 12 14 18 24 36 48 52 72 " into sam
- if ActiveField <> empty then
- set textSize of ActiveField to sam
- else set textSize to sam
- end if
- else if Joe is "4" then
- get PopUpMenu(" +1 ; -1 ; +3 ; -3 ; +5 ; -5 ; +10 ; -10 ", 0, vert, horiz)
- if it is "0" then
- else
- put word it of " +1 -1 +3 -3 +5 -5 +10 -10 " into sam
- if ActiveField <> empty then
- put "set textHeight of" && ActiveField && "to (" &¬
- (textHeight of ActiveField) & (sam) & ")" into temp
- do (temp)
- end if
- end if
- end if
- end if
- end mouseDown
-
- on mouseUp
-
- end mouseUp
- </script>
- </part>
- <part>
- <id>95</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>15</left>
- <top>39</top>
- <right>118</right>
- <bottom>52</bottom>
- </rect>
- <style>rectangle</style>
- <showName> <true /> </showName>
- <highlight> <true /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>bold</textStyle>
- <name>Set UserLevel To:</name>
- <script>on mouseDown
- set hilite of me to true
- put the loc of me into holder
- put (item 1 of holder-52) into horiz
- put (item 2 of holder)+8 into vert
- get PopUpMenu("1 Browsing ;2 Typing ;3 Painting ;4 Authoring ;5 Scripting ", 0, vert, horiz)
- if it is "0" then set userlevel to 1
- else if it is "1" then set userlevel to 2
- else if it is "2" then set userlevel to 3
- else if it is "3" then set userlevel to 4
- else if it is "4" then set userlevel to 5
- else exit mouseDown
- end mouseDown
-
- on mouseUp
-
- end mouseUp
- </script>
- </part>
- <name>Effects Editor</name>
- <script>on openCard
- put the short name of this card into bkgnd field "Title"
- put "Prev Card:" && short name of prev card into field id 78
- put "Next Card:" && short name of next card into field id 79
- pass openCard
- end openCard
-
- on mouseEnter
- global TargetEnter, NewBtn, NewBtnid, NewBtnN
- if TargetEnter <> empty then
- wait 60
- put the short name of the target into NewBtn
- put the target into NewBtnN
- put the id of the target into NewBtnid
- put "Change font of " & NewBtnN
- if word 2 of NewBtnN <> "Button" then exit mouseEnter
- if word 2 of NewBtn is "Button" then
- ask "This Button needs a name." with "Please, type name here."
- if it is empty then exit mouseEnter
- set name of NewBtnN to it
- put it into NewBtn
- end if
- answer "Change font of " & NewBtnN with "Cancel" or "OK"
- if it is "Cancel" then exit mouseEnter
- put empty into TargetEnter
- hide msg
- iconCheck
- end if
- end mouseEnter
- </script>
- </background>
-